RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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XX XX 
XX XX 
Xx 
x XX 
XX = XX 
XX XX 
XX 
XX 
XX = XX 
XX XX 
XX XX 
XX XX 
Kx XX 
XX XX 
QQQ00Q 
QQ000Q 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ 
QQ QQ QQ 
QQ QQ QQ 
QQ QQ 
Qa QQ 
QQQQg QQ 
QQea QQ 


PPPPPPPP 
PPPPPPPP 
P PP 


P PP 
PPPPPPPP 
PPPPPPPP 


} 
ee 
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Version: *v04-000' 

i eeeeererreererererereeetereereerereeeereeeeeeeeeeeneeerereeeereeeeeeeereetes 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


'* THIS SOFTWARE 4, FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS O E 


ait AND WITH TH 


® 

® 

tw 

® 

® 

® 

SU . 

is INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF NAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
is OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. ® 
' ® 
te THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
® 

® 

z 

® 

® 

® 

® 

* 


ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
it CORPORATION. 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eRe RRR REAR AAA AAA A EA AA EAE AAA AAA AERAEAAE Kee eee ee eee eee 
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FACILITY: 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 
ABSTRACT: 
This file contains Literals and macros defining the data structures 
found in the internal index pool 


ENVIRONMENT: Transportable 


AUTHOR : JPK 
CREATION DATE: January 1982 
MODIFIED BY: 
003 JPK00015 04-Feb-1983 


Cleaned up module names, modified revision history to 
conform with established standards. Updated copyright dates. 


002 JPK00009 24-Jan-1983 
Modified to enhance performance. The sort buckets have each 
been divided into 27 sub-buckets; 1 for each letter and 1 
for non-alphas. Removed reference to BUCKET from INDEX. 
Definition of the structure was added to NDXPOL. References 
to EL wore changed in modules NDXOUT, NDXINI, NOXFMT 
an 
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16-SEP-1984 16:55:44.98 Page 1 
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1 
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! Index entry 


SFIELD XE_FIELDS = 
SET 
XESA_PREV = [CSADDRESS), ' Link to previous item 
XESA_NEXT = [SADDRESSJ, ! Link to next item 
XESA_SUBX = [SADDRESSJ, ! Sub index pointer 
XESA_REF = [SADDRESSJ, ! Reference pointer 
XESA_TEAT = [SADDRESSJ, ! Pointer to text ot index item 
XESA_SORT_AS = CSADDRESS | Pointer to SORT_AS string 
XESH~SUBC = C$SHORT_INTEGER], i Sub index Level 
XESV_FLAGS = CSSHORT_INTEGERI, ! Entry flags 
SOVERLAY (XESV_FLAGS) 
XESV_BARS = ($B1T), ! Change bar flag 
SCONTINUE 
XESA_BOOK_LIST = CSADDRESSJ ! Master index book name List 
SALIGN (FULLWORD) 
TES; 
LITE 


MACRO 
$XE_BLOCK = BLOCK CXESK_LENGTH] FIELD (XE_FIELDS) 2%; 
! End of Index entry 


! Reference entry 


SFIELD XX_FIELDS = 
SET 
XXSA_LINK = ep One te 4° ! Link to additional entries 
XX$SA_APPEND = [SADDRESS ! APPEND text pointer 
XX$H~PAGE = CS$SHORT_INTEGER), i Transaction number 
XXS$V_FLAGS = CSSHORT_INTEGER], ! Display attributes 


SOVERLAY (XX$V_FLAGS) 


Bold page reference 
Underline page reference 
peas page range 


XX$V_BOLD = ($B1T), 
XXSV_UNDERLINE = ($B1TJ, 
BEGIN = . 

= ° page range 


$B1T 
$BI1T 


XX$V 
xx 


SCONTINUE 


RAL 
XESK_LENGTH = $FIELD_SET_SIZE; 


M11 | 
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XX$A_BOOK = CSADDRESS] ! Master index book name 
SALIGN (FULLWORD) 
TES; 
LITERAL 
XXSK_LENGTH = SFIELD_SET_SIZE; 
ACRO 
SXX_BLOCK = BLOCK CXXS$K_LENGTH] FIELD (XX_FIELDS) %; 
! End of Reference entry 


! Master index book reference entry 
SFIELD XM_FIELDS = 
SET 


XMSA_LINK = CSADDRESS]), ! Link to additional entries 
XM$A_BOOK = CSADDRESSJ ! Pointer to book name 
TES; 

LITE 


RAL 
XMSK_LENGTH = SFIELD_SET_SIZE; 


ACRO 
$XM_BLOCK = BLOCK CXMSK_LENGTH] FIELD (XM_FIELDS) 2%; 
! End of Master index book reference entry 


! Current Entry 
SFIELD C_FIELDS = 
SET 


CSA_CURR = CSADDRESS), ! Pointer to current cell 
CSA_PREV = (CSADDRESSJ, ! Pointer to preytoys cell 
CSA_HEAD = CSADDRESSJ, ! Pointer to head of chain 
SALiGN (FULLWORD) 
CS$V_FLAGS = CSINTEGER), ! Current cell flags 
SOVERLAY (C$V_FLAGS) 
C$V_IDNS = ($B1TJ ! Identical string flag 
SCONTINUE 


TES; 


NUMI 


N 
NDXPOL REQ; 1 16-SEP-1984 16:55:44.9 Page 4 
LITERAL 
CSK_LENGTH = SFIELD_SET_SIZE; 


MACRO 
$C_BLOCK = BLOCK CCSK_LENGTH] FIELD (C_FIELDS) %; 


' End of current entry 


i] 
Dummy datasets 


LITE 
DS_X_ENTRY = XESK_LENGTH, 
DS_XR_ENTRY = XXSK_LENGTH, 
DS_XM_ENTRY = XMSK_LENGTH, 
DS_X_STRING = 0; 


i Structure definition for bucket array. 


Buckets are arranged so that each row represents the first letter of 
the string and each column represents the second letter of the string. 


This approach is used only for master indexes as no performance 
improvement is realised until abcut 10 input files have been processed. 


Indexes which are not_master indexes use only the first element of 
each row, i.e., CO, 0]... (26, 0). 


) 

' 

' 

' 

' 

1 

' 

' 

' 

i 

J 

' 

‘ The only gxcogt ten is for nonalphabetic characters which use only 

! element (CO, 0). Elements (0, 1] ... (C0, 26] are not used since mapping 
: all nonalphabetics into one row loses the sort order of the first 

: character in the string. For nonalphabetics to work correctly in a two 
dimensional bucket scheme, the array would have to be at least 127 x 127 
i] 

| 

] 

' 

{ 

1 

' 

i 

S$ 


TRUCTUR 
SBUCKET_ARRAY CROW_IDX, COL_IDX; M, NJ = 
(M = N * XUPVAC) ($BUCKET_ARRAY + (ROW_IDX * N + COL_IDX) * XUPVAL); 


End of NDXPOL.REQ 
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